(rng-c-fix-escaped-newlines): Use subst-char-in-string

* lisp/nxml/rng-cmpct.el (rng-c-fix-escaped-newlines):
Use subst-char-in-string.

diff --git a/lisp/nxml/rng-cmpct.el b/lisp/nxml/rng-cmpct.el
index a699e9e3d96d6249d85c6dd75ca03d0295123619..ed88dfa98e96b3b5554e4e650530fb1852237108 100644 (file)
--- a/lisp/nxml/rng-cmpct.el
+++ b/lisp/nxml/rng-cmpct.el
@@ -674,13 +674,7 @@ the primary expression."
      (substring rng-c-current-token n (- n)))))
 
 (defun rng-c-fix-escaped-newlines (str)
-  (let ((pos 0))
-    (while (progn
-            (let ((n (string-match "\C-@" str pos)))
-              (and n
-                   (aset str n ?\n)
-                   (setq pos (1+ n)))))))
-  str)
+  (subst-char-in-string ?\C-@ ?\n str))
 
 (defun rng-c-parse-identifier-or-keyword ()
   (cond ((rng-c-current-token-ncname-p)